// 5_Strata.do
// ////////////////////////////////////

// This do-file generates strata by municipality and training project,
// which will be used in regressions.


clear all
set more off
matrix drop _all
capture log close

log using "${path_logs}/8_Tables_prepare.log", replace

use "${path_data}/variables2010_2011_2013.dta", clear

// Variable for business training projects
quiet egen project=group(adm_codigo_p), missing	

keep if TT!=. /* GC, PAME2, y Fin. Adic.*/


// Merge to retrieve data about municipality of project
sort id2011
merge 1:1 id2011 using "${path_data}/base_comuna.dta", generate(m_comuna)
drop m_comuna

// Encoding municipality variable
encode comuna, gen(comu)

// Cut points for Social Security Card score
scalar corte1= 2168
scalar corte2= 2298.5
scalar corte3= 3445	

// Brackets for Social Security Card Score
gen fichaps1=0 if fichaps2011!=.
gen fichaps2=0 if fichaps2011!=.
gen fichaps3=0 if fichaps2011!=.
gen fichaps4=0 if fichaps2011!=.
replace fichaps1=(fichaps2011 <=corte1) if fichaps2011!=.
replace fichaps2=(corte1<fichaps2011 & fichaps2011 <=corte2) if fichaps2011!=. 
replace fichaps3=(corte2<fichaps2011 & fichaps2011 <=corte3) if fichaps2011!=. 
replace fichaps4=(corte3<fichaps2011) if fichaps2011!=.


// Strata
// Each municipality is divided into 4 groups, according to Social Security Card score brackets
local i=1
	while `i'<=27 {
		gen d`i'1=0
		gen d`i'2=0
		gen d`i'3=0
		gen d`i'4=0
		replace d`i'1=1 if comu==`i' & fichaps1==1
		replace d`i'2=1 if comu==`i' & fichaps2==1
		replace d`i'3=1 if comu==`i' & fichaps3==1
		replace d`i'4=1 if comu==`i' & fichaps4==1
		
	local i=`i'+1
	}
	
# delimit ;
global estrato "d11 d12 d13 d14 
d21 d22 d23 d24 
d31 d32 d33 d34 
d41 d42 d43 d44 
d51 d52 d53 d54 
d61 d62 d63 d64
d71 d72 d73 d74 
d81 d82 d83 d84 
d91 d92 d93 d94 
d101 d102 d103 d104 
d111 d112 d113 d114 
d121 d122 d123 d124
d131 d132 d133 d134
d141 d142 d143 d144
d151 d152 d153 d154
d161 d162 d163 d164
d171 d172 d173 d174
d181 d182 d183 d184
d191 d192 d193 d194

d201 d202 d203 d204 
d211 d212 d213 d214 
d221 d222 d223 d224
d231 d232 d233 d234
d241 d242 d243 d244
d251 d252 d253 d254
d261 d262 d263 d264
d271 d272 d273 d274 "
;
# delimit cr

// Strata by municipality-project
egen com_proj=group(comu project)

// Strata municipality-SSC score
egen strata=group($estrato)
label var strata "Strata municipality-SSC score"

save "${path_data}/variables2010_2011_2013_ready.dta", replace

// ////////////////////////////////////////////////////////
// ////////////////////////////////////////////////////////

log close

